******************************************************************************
	*** Figure 2 ***
******************************************************************************
	
	//Use main data
	use "${maindta}", clear
	
	//Plots the kernel density of the centered score by size category, additionally provides a binscatter 
	twoway kdensity score_centered if size==1 [aw=wt_rs] , lcolor(blue) 	|| kdensity score_centered if size==2 [aw=wt_rs], lcolor(red) || kdensity score_centered if size==3 [aw=wt_rs], lcolor(green) ytitle("") xtitle("") xlab(,nogrid) ylab(,nogrid) legend(off) text(.075 02.75 "Small", color(blue)) text(.05 8 "Medium", color(red)) text(.02 22 "Large", color(green)) ytitle("Density of Scores by Size Category") name(bysize_a, replace)
	binscatter score_centered ln_size [aw=wt_rs] , ytitle("Political Influence Score (0 to 100)") xtitle("Firm size (log), binned") xlab(,nogrid) ylab(,nogrid) name(bysize_b, replace)
	graph combine bysize_a bysize_b , xsize(7) ysize(3.5)
	
	graph export "${outfigures}\Figure2.pdf", replace